home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / dbase / videomgt.zip / ADDFILM.PRG < prev    next >
Text File  |  1991-11-23  |  720b  |  31 lines
  1. && ADD RECORDS TO YFILM FILE ===> ADDFILM.PRG
  2. SET TALK OFF
  3. ANS=" "
  4. USE YFILM
  5. DO WHILE .T.
  6.    CLEAR
  7.    APPEND BLANK
  8.    @ 3,20 SAY "ADD RECORD IN YFILM FILE"
  9.    @ 5,5 TO 17,60
  10.    @ 7,10 SAY "FILM NUMBER "  GET FILM_NO
  11.    @ 9,10 SAY "RATING      "  GET RATING
  12.    @ 11,10 SAY "TITLE       "  GET TITLE
  13.    @ 13,10 SAY "TIMES       "  GET TIMES FUNCTION "Z"
  14.    @ 15,10 SAY "PRICE       "  GET PRICE FUNCTION "Z" 
  15.    @ 24,15 SAY "PLEASE ENTER ALL THE FIELDS OF RECORD ADDED"
  16.    READ
  17.    ANOF=ANOF+1
  18.    CLEAR
  19.    @ 12,10 
  20.    WAIT "                      DO YOU WANT TO CONTINUE(Y/N)? " TO ANS
  21.    IF ANS $"Yy"
  22.       CLEAR
  23.       LOOP
  24.    ELSE
  25.       EXIT
  26.    ENDIF
  27. ENDDO
  28. CLEAR
  29. @10,36 SAY "W A I T"
  30. RETURN
  31.